(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     73707,       1962]
NotebookOptionsPosition[     67980,       1768]
NotebookOutlinePosition[     68351,       1784]
CellTagsIndexPosition[     68308,       1781]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, 
   3.5400697213648205`*^9, {3.540419092786145*^9, 3.5404191035032763`*^9}}],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "oFile", "=", 
   "\"\<C:\\\\Users\\\\work\\\\Data\\\\output\\\\Rb85-D1-F3F2.txt\>\""}], ";",
   " ", 
  RowBox[{"(*", 
   RowBox[{"output", " ", "file"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "pathname", "=", "\"\<C:\\\\Users\\\\work\\\\Data\\\\2012-05-15\\\\\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"filename", "=", "\"\<Rb-D1-line.dat\>\""}], ";", " ", 
  RowBox[{"(*", "datafile", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"ExpSpecFile", "=", 
   RowBox[{"pathname", " ", "<>", " ", "filename"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dataTab", "=", " ", 
    RowBox[{"Import", "[", 
     RowBox[{"ExpSpecFile", ",", "\"\<Table\>\""}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Form", " ", "repetition", " ", "rate", " ", "list", " ", "and", " ", 
    "offset", " ", "frequency", " ", 
    RowBox[{"list", ".", " ", "Extract"}], " ", "from", " ", "actual", " ", 
    "data", " ", "file"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fOffsetList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "\[LessEqual]", " ", 
     RowBox[{"Length", "[", "dataTab", "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"fRepList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fRepList", ",", 
         RowBox[{
          RowBox[{"dataTab", "[", 
           RowBox[{"[", "n", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{"\"\<2\>\"", " ", "=", " ", 
        RowBox[{
        "2", "nd", " ", "column", " ", "of", " ", "the", " ", "datafile", " ",
          "contains", " ", "the", " ", "rep", " ", "rate"}]}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"fOffsetList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fOffsetList", ",", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "*", 
           RowBox[{
            RowBox[{"dataTab", "[", 
             RowBox[{"[", "n", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}]}], ";", " ", 
      RowBox[{"(*", 
       RowBox[{"\"\<1\>\"", " ", "=", " ", 
        RowBox[{
        "1", "st", " ", "column", " ", "of", " ", "the", " ", "data", " ", 
         "file"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"n", "++"}], ";"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "n", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5407390737883897`*^9, 3.540739088359223*^9}, {
   3.540739992029157*^9, 3.540740041489399*^9}, {3.5407406597673416`*^9, 
   3.5407406605630484`*^9}, {3.540759923421386*^9, 3.54075992699477*^9}, {
   3.540916666913783*^9, 3.5409167107412057`*^9}, {3.5410306226774387`*^9, 
   3.5410306254230385`*^9}, {3.541270497166806*^9, 3.5412704996322856`*^9}, {
   3.541274869409685*^9, 3.541274944053684*^9}, {3.54127535250709*^9, 
   3.5412753550661683`*^9}, {3.5412756166532516`*^9, 3.541275618503356*^9}, 
   3.541296481310985*^9, {3.5413395075363216`*^9, 3.541339527972351*^9}, {
   3.541854954893719*^9, 3.5418550048764396`*^9}, {3.541901835934777*^9, 
   3.5419018359972024`*^9}, {3.5425556289495316`*^9, 3.542555668948188*^9}, {
   3.5425645375795045`*^9, 3.5425645423687353`*^9}, {3.5425708187683387`*^9, 
   3.542570829282873*^9}, {3.5429947403438854`*^9, 3.5429947719235477`*^9}, {
   3.5429967242128005`*^9, 3.54299673992482*^9}, 3.5429987707942295`*^9, {
   3.54860722625*^9, 3.548607242109375*^9}, {3.5486142270302734`*^9, 
   3.5486142323271484`*^9}, {3.549047229984375*^9, 3.54904723009375*^9}, {
   3.549047281875*^9, 3.5490472825*^9}, {3.5490508825478516`*^9, 
   3.5490508830478516`*^9}, {3.5490539505146484`*^9, 3.549053952245117*^9}, {
   3.549054542413086*^9, 3.549054544944336*^9}, {3.5491652441914062`*^9, 
   3.5491652453310547`*^9}, {3.5492126172304688`*^9, 
   3.5492126184121094`*^9}, {3.5492214323710938`*^9, 
   3.5492214337939453`*^9}, {3.5492440679101562`*^9, 3.549244069888672*^9}}],

Cell[CellGroupData[{

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"N", "[", 
    FractionBox["5", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9, {
   3.543190796949274*^9, 3.5431907994297853`*^9}}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]T", "=", 
   FractionBox["1", 
    RowBox[{"40.2", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "9"}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663726421875*^9, 3.4566637388125*^9}, {
   3.45666380203125*^9, 3.456663813921875*^9}, 3.4566922269375*^9, 
   3.5366835360235*^9, 3.538523997111776*^9, {3.5492102484960938`*^9, 
   3.5492102492285156`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\[Gamma]T"], "Input",
 CellChangeTimes->{{3.5370977448424997`*^9, 3.5370977478424997`*^9}}],

Cell[BoxData["2.487562189054726`*^7"], "Output",
 CellChangeTimes->{3.5492413675458984`*^9, 3.549244117919922*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9, {
   3.5431908055452595`*^9, 3.543190808181778*^9}}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.54319081379803*^9, 
  3.5431908163409443`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fMinGnd", "=", "3."}], ";", 
    RowBox[{"fMaxGnd", "=", "3."}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"fMinGnd", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{"jGnd", "-", "i"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"fMaxGnd", "=", 
      RowBox[{"jGnd", "+", "i"}]}], ";"}]}]}]}]], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.549054416475586*^9, 3.549054441959961*^9}, {3.5490546063339844`*^9, 
  3.5490546072109375`*^9}, {3.5491652337001953`*^9, 3.5491652371904297`*^9}, {
  3.549212635984375*^9, 3.5492126458828125`*^9}, {3.549212677290039*^9, 
  3.549212678279297*^9}, {3.5492214393632812`*^9, 3.549221454544922*^9}, {
  3.549244075859375*^9, 3.549244079088867*^9}},
 EmphasizeSyntaxErrors->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"1011910813", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"From", " ", "Steck", " ", "review"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
  3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
  3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
  3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}, {
  3.539986000397787*^9, 3.539986002566191*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
  3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}, {3.543190821754387*^9, 3.543190824780923*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9, {3.543190721816303*^9, 
   3.5431907227055426`*^9}, {3.543190828181875*^9, 3.5431908303035707`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Int", "=", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"377107385690000", ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606282516619*^9, {
   3.539986512531087*^9, 3.539986513092688*^9}, {3.543190678227947*^9, 
   3.5431906974480095`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"120527000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}, {3.5431907381970377`*^9, 3.5431907459661865`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"0", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}, {3.5431907713173237`*^9, 3.5431907730646024`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9, {3.5431908370430727`*^9, 3.543190838883956*^9}}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, 
   3.5385845502476044`*^9, {3.543190842206905*^9, 3.543190844500208*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fMinFin", "=", "2."}], ";", 
    RowBox[{"fMaxFin", "=", "2."}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"fMinFin", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{"jFin", "-", "i"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"fMaxFin", "=", 
      RowBox[{"jFin", "+", "i"}]}], ";"}]}]}]}]], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}, {3.549054452116211*^9, 
  3.549054463022461*^9}, {3.549054505116211*^9, 3.549054506225586*^9}, {
  3.549054588826172*^9, 3.549054590098633*^9}, {3.5491652252441406`*^9, 
  3.5491652283652344`*^9}, {3.5492126541240234`*^9, 3.549212670517578*^9}, {
  3.549221461413086*^9, 3.549221465723633*^9}, {3.549244101182617*^9, 
  3.549244106234375*^9}},
 EmphasizeSyntaxErrors->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Fin", "=", 
    FractionBox["1", 
     RowBox[{"241.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]GndToFin", "[", 
   RowBox[{"f_", ",", "fDPrime_"}], "]"}], ":=", 
  RowBox[{"2", " ", 
   RowBox[{"Switch", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "fDPrime"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "1."}], "}"}], ",", "385240679712000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "2."}], "}"}], ",", "385240683216500", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "3."}], "}"}], ",", "385240689192100", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "4."}], "}"}], ",", "385240698496000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "1."}], "}"}], ",", "385242197577500", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "2."}], "}"}], ",", "385242201083900", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "3."}], "}"}], ",", "385242207058800", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "4."}], "}"}], ",", "385242216362900"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5386057393735533`*^9, 3.5386058876180325`*^9}, {3.543190851598526*^9, 
   3.543190860662533*^9}}],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mRb", "=", 
   RowBox[{"84.911789732", " ", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "323"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, 3.540317318104452*^9, {3.5406683893730965`*^9, 
   3.540668394139369*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]", "=", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    FractionBox[
     RowBox[{"2", " ", "kB", " ", "temp"}], "mRb"], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}}],

Cell[BoxData["25150.741682876534`"], "Output",
 CellChangeTimes->{3.5492413692646484`*^9, 3.5492441197939453`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Offset Frequency", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f0", "=", 
   RowBox[{
    RowBox[{"-", "40."}], "*", 
    SuperscriptBox["10", "6"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.536606229336*^9, 3.536606229476625*^9}, 
   3.536609033945375*^9, {3.53667308924225*^9, 3.536673089507875*^9}, {
   3.536679694632875*^9, 3.5366796956485*^9}, {3.536683666961*^9, 
   3.5366836672735*^9}, 3.5370104677487497`*^9, 3.5370325434049997`*^9, {
   3.539116492685813*^9, 3.5391164930290136`*^9}, 3.539127919839781*^9, 
   3.54006974098962*^9, {3.543190886715702*^9, 3.5431908944692497`*^9}}],

Cell[CellGroupData[{

Cell["Rep Rate Range", "Subsubtitle",
 CellChangeTimes->{{3.45666493915625*^9, 3.456664941796875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fRepMin", "=", "250000000.00"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepMax", "=", 
   RowBox[{"250000000.00", "+", "90"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQzdCQuk7g4EtHBoZ9ELohdBeEL7EPwn9xEMI3PwTh
s56D8OMhdIPTEVkwn/coiG52WHucM/IVkPY7DaYP+LR0gfmL28H0gSbN1WD+
O30IXZe8DkzvSYXQzKEbwOrEI0H0odKbf1WjQPRDKH171how3TwHRL/4/XHz
ymgQ3bAFTFer7V8Npvsh9O+th8+B+fOOgOnfdbP+gGnp2RB66gYIfRpMOz3c
+OsfkC44+hVMf/sZ9h9Ef9n1AUwf4f8hzRzzyvEWo5QMiNapefXYP/aV4xX+
licgWkpilXVI3CtHNqZOexB9avXVdaoJrxz3taduANErbum4aQLpTcZLwPSc
H5WuF4D0wu4mNxANAMce1ZU=
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fRepAvg", "=", 
   FractionBox[
    RowBox[{"fRepMin", "+", "fRepMax"}], "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.456665192578125*^9, 3.456665212796875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.540317323815516*^9, 3.540317328496716*^9}, {
  3.540419143002223*^9, 3.5404191470893974`*^9}, {3.5405055344876103`*^9, 
  3.5405055415075207`*^9}, {3.5431904971498528`*^9, 3.5431905022045116`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1508420", ",", "1508421", ",", "1508422", ",", "1508423", ",", "1508424", 
   ",", "1508425", ",", "1508426", ",", "1508427", ",", "1508428"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.549241369388672*^9, 3.5492441199384766`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.540317329979096*^9, 3.540317333848888*^9}, {3.540419150271777*^9, 
  3.540419153875354*^9}, {3.5405055431298995`*^9, 3.5405055508206005`*^9}, {
  3.543190506510333*^9, 3.5431905105041375`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1573497", ",", "1573498", ",", "1573499", ",", "1573500", ",", "1573501", 
   ",", "1573502", ",", "1573503", ",", "1573504", ",", "1573505"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.549241369439453*^9, 3.5492441200117188`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_", ",", "f0_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
   3.4566795630625*^9, 3.45667956609375*^9}, 3.5490508994384766`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"transProb", "[", 
     RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Pi]", " ", 
               RowBox[{"\[Nu]GndToFin", "[", 
                RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
              RowBox[{
               RowBox[{"(", "\[Omega]1", ")"}], 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 FractionBox["v", "c"]}], ")"}]}], "-", 
              RowBox[{
               RowBox[{"(", "\[Omega]2", ")"}], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"]}], 
          ")"}]}], "\[IndentingNewLine]", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "f"}], "+", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"m", "=", 
           RowBox[{"-", "f"}]}], "f"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"mDPrime", "=", 
            RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"mPrime", "=", 
                RowBox[{"-", "fPrime"}]}], "fPrime"], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                   "+", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", "\[Omega]1", ")"}], 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                 ")"}], 
               SubscriptBox["dGndToInt", 
                RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
               SubscriptBox["dIntToFin", 
                RowBox[{
                "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                 "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "fOffset_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", "v"}], "]"}]}]}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{
     RowBox[{"fRep_", "?", "NumericQ"}], ",", 
     RowBox[{"fO_", "?", "NumericQ"}]}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "fO", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQ/Zepf7NR7CtHpd18W0C0x7fm2/5AOiJ5OZheEqz3
sS7xlaOTdTaY5uItmVUPpAVSboFphS1n14BoFmmfdSB67WLvXfuBdMiW0t0g
+tHFjS6HQernOLuC6ILW5Skgmq/gIZhe9iz50FEg/SuyBUxfVcuPL0p65bgh
WicNRL95vyELRFt8UMkF0eKfZ4f3Jr9yjAoPigLTJdvtlwBpB/UtDiCa4Yfj
8cICIF3hdgJM/6j2LALTK7wg9N0gMF2hFgKhkyog9KxqMC3R3uhRCKRvWDWB
aYuarRA6dQeY7kg6UQeiI+ZC6BVLz0wB0RtOgWkAuG2mOg==
  "]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"\[Delta]f", "=", "0.25"}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{"step", " ", "size", " ", "in", " ", "rep", " ", "rate"}], "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{"fr", "=", "250000000"}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"specList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Form", " ", "the", " ", "fRepList"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"While", " ", "[", 
    RowBox[{
     RowBox[{"fr", "<", "250000090"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"fRepList", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"fRepList", ",", "fr"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"fr", "+=", "\[Delta]f"}], ";"}], "}"}]}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{
  3.456746939*^9, {3.5372003913424997`*^9, 3.5372003937643747`*^9}, {
   3.5378885919057503`*^9, 3.5378885935932503`*^9}, {3.537901719773398*^9, 
   3.53790172663741*^9}, 3.5379017983975363`*^9, 3.5385235615778646`*^9, 
   3.538524008413422*^9, {3.540084146036523*^9, 3.5400841470661955`*^9}, 
   3.5404312983500743`*^9, 3.5404424331582637`*^9, {3.5406998704760923`*^9, 
   3.540699870788086*^9}, {3.5407000208571997`*^9, 3.5407000214031897`*^9}, {
   3.5407003545674286`*^9, 3.540700373396387*^9}, {3.5407005292071896`*^9, 
   3.54070054245142*^9}, {3.540701011319009*^9, 3.5407010167789383`*^9}, {
   3.540701078148552*^9, 3.54070107905334*^9}, {3.540702894168069*^9, 
   3.54070290344995*^9}, 3.540704212332471*^9, 3.54070429143855*^9, {
   3.5407339187505383`*^9, 3.5407339258319435`*^9}, {3.5407346581998324`*^9, 
   3.5407346626740885`*^9}, {3.5407390969557147`*^9, 3.540739098918827*^9}, 
   3.540740429510459*^9, {3.5410306331138387`*^9, 3.5410306802726383`*^9}, {
   3.5410308040274386`*^9, 3.541030814635439*^9}, {3.5412704895519075`*^9, 
   3.5412704916584883`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rFrep", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tt", "=", 
    RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "distribute", " ", "NIntegrate", " ", "among", " ", "CPU", " ", "cores"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"specList", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{
  "SetSharedVariable", "[", "specList", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelDo", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"specList", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
         "fRepList", "\[LeftDoubleBracket]", "kk", "\[RightDoubleBracket]"}], 
         ")"}], ",", 
        FractionBox[
         RowBox[{"Chop", "[", 
          RowBox[{"vIntSpec", "[", 
           RowBox[{
            RowBox[{
            "fRepList", "\[LeftDoubleBracket]", "kk", 
             "\[RightDoubleBracket]"}], ",", 
            RowBox[{
            "fOffsetList", "\[LeftDoubleBracket]", "kk", 
             "\[RightDoubleBracket]"}]}], "]"}], "]"}], "5"]}], "}"}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"kk", ",", 
      RowBox[{"Length", "[", "fRepList", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ttt", "=", 
   RowBox[{
    RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], "]"}]}], "Input",
 CellChangeTimes->{{3.540700569251876*^9, 3.540700631292281*^9}, {
   3.540704216154398*^9, 3.540704252064907*^9}, {3.5407042969296446`*^9, 
   3.5407042987392097`*^9}, 3.5407055725228095`*^9, {3.54073392927214*^9, 
   3.540734037008302*^9}, {3.541275778337726*^9, 3.541275794685014*^9}, {
   3.541276893218398*^9, 3.541276895647437*^9}, {3.541296195763912*^9, 
   3.541296442665784*^9}, {3.5412965326870537`*^9, 3.5412965488659134`*^9}, {
   3.541298036226572*^9, 3.5412980663070354`*^9}, {3.5412999438710012`*^9, 
   3.5413000247309847`*^9}, 3.5413009553674545`*^9, {3.541302060074316*^9, 
   3.54130207288249*^9}, {3.541302810233549*^9, 3.5413028515127363`*^9}, {
   3.541304182880085*^9, 3.54130419865219*^9}, {3.542556980744997*^9, 
   3.542556983272213*^9}, {3.5425636106215625`*^9, 3.542563611370367*^9}, {
   3.5492235825820312`*^9, 3.5492235859335938`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Execution time = \"\>", "\[InvisibleSpace]", 
   "1086.8359375`10.487708983933672"}],
  SequenceForm["Execution time = ", 1086.8359375`10.487708983933672],
  Editable->False]], "Print",
 CellChangeTimes->{3.5492435652646484`*^9, 3.549245207086914*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"totalSpec", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "fRepList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
         ",", 
         RowBox[{"Chop", "[", 
          RowBox[{
          "specList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "1", ",", 
         RowBox[{"Length", "[", "specList", "]"}]}], "}"}]}], "]"}]}], ";", 
    "\n", 
    RowBox[{"fRepList", "=", 
     RowBox[{"fRepList", "-", 
      RowBox[{"Min", "[", "fRepList", "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotSpec", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "fRepList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
         ",", 
         RowBox[{"Chop", "[", 
          RowBox[{
          "specList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "1", ",", 
         RowBox[{"Length", "[", "specList", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Sort", "[", "specList", "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5409271816468678`*^9, 3.5409272231595325`*^9}, 
   3.540959220519678*^9, {3.541299917754927*^9, 3.5412999284104104`*^9}, {
   3.5413019390284843`*^9, 3.5413019427882533`*^9}, {3.5413033228068624`*^9, 
   3.5413033265042048`*^9}, {3.541303499156045*^9, 3.5413034998112698`*^9}, {
   3.5492214158203125`*^9, 3.5492214172626953`*^9}, {3.549223574495117*^9, 
   3.5492235748359375`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2HlczVkfB/CrQtGCSskWWUox9ZBIyZZQTUShJHXbtVytKulGu3YiaghZ
00QaQotMWauRohQJkaUIPRjL3Gc+n+cvr/fr0/ec8zv3/M45fhNcA2zdpQQC
gdcAgQD/1mqKBe71RQtD9sXkJ1dEmNVqCgbASgUFTr0DYTEt9WabjPG6cLOk
hQIp+Kl820un0q1m855E0xm5R/IsNLaiXhqW6Xv3My0hzEwgENMXbYMuyA4K
+/fvJfTHlBfGi1NCkcvAJmG7VlT9E/KvBQPh3/Zc7HMxCkZOp+8x/KCsGYJ6
usXA8vXXgmD0Pwj+HGJfbGYES2jvH4YGdxqCMP7BcFPagNHjpwchp0+rG1RW
K8HRsvCTYwnmv58LRP9ycP5Q2XHH7APNwiqj6Zg7t/sP/rMF+RB4cez9yJen
YDEdNf6LVavSFrRPV4V+2fypT4T2h8LRB8ca2h4XoV4eTmns77cIYk4/N7HP
FesxV+D8PZc6n3ghADn96IfoZ8qiAMyvIhwwrkV6/gh/9E/3zvBpHrjUH/3T
wb03REk3/JArwXkHAi2Ll/mhfhhcXvH9r5pnvmifHmY8XlMlwhf9D4crXp1p
8h7li/mjlUpPSEkubUY+Ara6FmP2yGszclpV03qJ0wjmyhyvyvG8eVd80D99
t2thea4nLFCB3QsWFiirMaeLOmdOKrzljfHT39UsTVZs90auCicHTnXVn+aN
8Y/k+sjbm27zwRM5bTk64nXVZU/U01PSeyeqbWeuBp9LvmttMN4L/avDD0xG
xl/qZE6r3gzyGboKFoyCS+RMJWVC5nRmcF7QCgVP9K8Brwu3bvFs9UBOi0v/
s1p4wgP904rOOnqzIpmPhrtjHkvLeXmgfgzc9dKnwF2BOd3cfab3Q6c7+h8L
j9Hb725Q5o75pc++nTDj8Unm4+DEplkKqTuY01+fdT0b48R8PFxqWpcsqnZD
+7TjfpOB9RrMNWGRVthEuW9uqKc1RfUHxvQKkU/g7x00IvdrhRvWB628pjBb
5ojbv++DhNbWf750QgLzifB00YE78X6whC5wLFpks5rta3F+VFTab8zDeAST
uL6E2i6N2ULU00pLo8T7BzKfDLdqGFrd6WNOp+j65ozs4PimwPJP3g3T+0uI
95P2aPftMa/H30toVQVFy+4KIfqfCrut9bEtLIYF2rDXPbu3rofQnpjenaJi
OzuTuQ78SkY4ZdfQTainrfuCbURr2T5tlth76tMM1k+DKx+6Vh6YwvHpwn1d
A/7o3sic/lqzeKGcM3M9eHDJ8OzK9czp0rGTBrivZT6d77OsXOLjBcxpOeN1
bk7z8bwSOqnOraLRlPkMeHV709+fV3L8v/B905Eunm3LnD6jmHBxoT3r6YjD
FbZJ/+9fH7YdINAOWcPno0URn84ueOeK+TeAV/0MM62aw5xe6aJlUOnP+v/w
ffmW5rXNmTnt/vLam4mxzGeyvV1jqr4ncXyz4LLy8wOr9/P3oZ27lMdUaQtx
vhjC4XIhBu7D+fvTohKRW1gq52c2rP9q+tWsq2yfbupZ3i97nO0b8bxRTDEN
vsic3pI6/ERrA+vnwHGZn9siPrB/WtMoW3b6IK5f+v0DxXl3h3N9z4U3OSnJ
WGhjPQuM4fo1wpBYI65vukHu2adiR9bTIuftexaFsX4e19+R0HP9Hqw3gety
Qyo7jvP9pCUD4o97PWVuCutI2+nfGYL3VUwXbJLtvmnM93c+vPddW15DFtun
9yWlyLyJZm7G9dzk+84ynvV0QUFm1IdC7BeCBbDQU87jUhNzutMhr0b1H9Yv
hH++/yyYqcv9iR7cflHey4H71yLYtbx8/Zfh2O+i6fCaPL/CYuaLYYHhoqQv
n5jToUtEqwW63F+XwP05klbDOO6vdMaSJUP2XWVuzvXjn2TZ8pk5PV7a26Le
kPv3UvjkLZWTW8ReaJ8+W7owX76GuQVcM2nJ0ZohOC/EdFlOT3q/Gc4TwTL4
pcTq2KtYni+0xNtvdOcD5sv5+/gm/1Iwygf19LPcxCBrf1iwgvt/hnT60ls+
6J9eO36e/qXPsITWLpRrvrZ9M3JL+N7XIrXs7s14/2jXSc2fort5flrBc4Kt
30h54DyW0EVVXd8qFvD8toZHjLF+41AEC36FHaT8P/YN4/lP+y6YECiV7o/x
2cA7CmR1likFIKcTRwUcM0jFfUJC5+hXC30H4r4hXgm37PuYoLdchPpVsH/B
A8myDFhMXy+ULgx8hPuKhC72vHx4qM4W5Lbcr0wibgrDef+h7Z5UH+2q4/1o
Nc8H8TXzHVq8X62B1QxdL5//gL+Ppn+o+sreaGRuB2+4tyH+pSnvb7TPhE9t
fx6GBfY8H0L70rXkef+jzW0MJgVtwX1RsBa2ERdbvO7m/ZHWOFY/rbcuEPXr
uD/eEL05/Az3yWg6NfJ7oq5tKH4fWq8i6lBNWyjy9VzP6xeXym3CfVbgAF92
MDgi/In7bDSdUZH9++yDuA9L6AcHq2ZdXxKO/h35fP51Udld4eh/A9/XiY/7
70fyfk2PeXrefv7cSLTvBD+xepK9TnUbcnrqKm/jKw+2Id8IZ2/QVvcNikL7
tMZIhbl25tvRvjPHu/Hz6HlW0RgfXfUzVaNIS4x8Ezw7+Xlq9hkx6unuvBXm
1aYxyF1gqfCsexmaO5DTFod1TQaX7EDuCssaCp0cEnYipzNMWiYnm8ciF8Ln
rNtLgpTj/t3PxXTArRmXcz7EYX7oV+PcTp7ujEe9G59/g2ZB7YsEPJ87/379
wc6tgiTk9C+aP+X3z0hG7sH3Y+ypxgkRu5DTGdrGuu3tKejfEx7yWG2Sm28a
5o/+0qg884p8Buq94OHeIz/F9sNiusyg1mGBThZyb9jIXhjr6r8bOV0nJ1wc
WbcHuQ/Pi0tKCbdK9qJ9+vrEcYqxdTl4PlppY+l/X7jkIt8M/+aS6nbz5EGM
zxd+2NVQFhp8GPcX2jT9q7ejQQHa94PvX+9e3LftBH4/2lB+8tZbuafRPn1y
kPbfvwWcQe7P91u/xuyPK4WoD4Dl+04tV1pdhPHTey66e/0ayVwET7tXLQi4
ehb19Fa7Cy9PHC5BvgUe+veQwNKOUuT0mXKdMZVSZRh/INdHV0pPlqgcz0c7
WmqlnVxfjfogzs8dmXN6j2vRP6102LZNaWgdxk+36MtFDUtrRH0wrLx8ZUfr
+GbUh3B8RoFODxWb0T8tdlsaeUnnHvJQ7r+lb58ETLuLnDaZ+nGalF8D8jD+
fnqq1sKuBrRPFzu8XnjR4y7yrXxfFseI4hsaMT76gayKtktHE/JwWGH0iIq4
yAfI6Y97/KLWNrYjj+B+nD8iaOS9p8jplDfDFKOvdmN+Irn/ufc7vbfpxfqn
BeqiuK+175FvgxfoTv4R/Ctzeoaiw+3Cpa+QR/F9U9+Zl3TnOdqn6+3GDh/7
vBP9b+f+fmHd/GWFHainBZamCRn2j5FHw/ob0vr+6nuEevrbGoXRvVnMxfCx
5fvHZWh0Yv7oxD2yl1MbnyGPgZvDFDoyTLuR01bx+9/e/NmDfAf8YnjotcsP
+7B+aeW5ib2qah9wf9sJe5rkpLu09GD+6bIjxeNdwtCehA6KsorqMUZ/4ljY
2j/LYOMKji8OLlVbE2As/RA5PfHPzbbfe+4jj+d590L9vnFuE8ZHr3wo9cJZ
i+sjARZtf1pd/hfXF33IxsXGsZF5IvdfXTvLazpoT0yb1J4YLL22FXkSnz9O
bdcmuzbkdPbD22rqva14vmSeT7uXGM0/24z26RPTnu9rX4r1KKFT4+5+aQq4
hfnZBbeFxwZ6hNQgpx+93+qdee8y2k/h+TV1mcXmA+U4f+gfEWOffr9VhjwV
1n1otHy+3AWML435APtzg0aVIqeV47KXaY45j/GlwyVDHNfF7C7B+OiptjW1
Ftrnsb4y4CtzTqSNvVyC+aNDp+qGpX07i/pM+GZGiYzP32fQPn3vbP6Hho0n
MX66ZMWyvlM1BXi+LJ638Qc0K5WPoP3dfF+OfB9sPjAf/dMjjAMkVbV5GP8e
OOF0Zphg4AH0T/f0jlZd/GMf8mzO9xSv/r732aing+Zahk2N24P5oQM/rn9f
PnY38r08v8qdtRTfZqL/ffAnxdJDS7oy0D59RPW1qeWHdLSfA1dcjWtZNj8N
z0dvStUcd/uPFOT7YVuNfTlvZvJ8oQuyzkSov0pC+wfga+JvzauuJqJ9Wt27
ZpBdJc+vXHhyaYqMzdV4zA/t+d6/NrclDnkePMV+crVZdSzqaSuhzAprZZ6f
v8E1r+JVjm7aiZxWK6nrdrHZjvqD8EV//779vTivxXRWorZKaQzP70NcXxW6
VR1veL7T2jHq9UbOsCAfdtvhuNOmNBo5rfdj9BOtK9vx+9KyyxXyLzREof/D
fL/m/Df0jx7eP47wvFWae9NDHRbTUrtHHvv6ZwTyo7Cqtax+TRYspptftbf1
d/D7YQHcamo903oW70d05/sBxw5l8fvhMThk2IV5RS/4fZBeqnjiUbmQ3w/p
609v9/S28n52nO/HpZUyd1bCEnrJoUtXUy7ie6L4BFyZb5gbk8z74Um445vs
F/0/g7F/0koTjLauSw9EPa0+TkUv8QXvn6fgA4crV1wTB6H+NBzTftRZUxYW
07XTvvjUneT9tRBuyggfJLLGfVNMF1amncmRYn6G+/0g17nPing/ppvmDagc
ux73aUERHFCQqzB7KHPa/qVOpkwl79/0k6yRs/Y68P7+O3//6+YNgzX4/bCY
ucH7gx9f4nuhmN56rCHLsZ7fB+kIi0UBU1fx/w9neT6c6tsRe9sPOe3ZGe0t
5eaH+TkHhzkFlrUl8v8fJbBfvLVd9mT8fTStNNfxqP15fC8UnIeTDfL7K9R9
sf5pv+T5rbM+8vtgKeyc2d6ql77Z7H/LnPof
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.549243565834961*^9, 3.549245207583008*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXGuoHVcVnpwzc+6NpLbJrVqlYhLBeJtW4uOHSsVHTZP0YRvbYKG05iYI
N4i21Aiif+of+0cR9IcWxPzwhQ+wUmgRKpZW+6L21j6w2GiMIBFsWrCIBITr
+dZea81e567Ze86cc5Mr3pCZO7PP3t+39l6vvffMOdcuHF381GcWjh45vLB1
zx0Lty8eOfy5rVfedsewqL+hKDYsFkVxcmuB6+XhJZ+Wh/+Xj+CEEv96H/6U
qN6jgn4RmhLCsGz4r6TbSj+QQz/ra3Oqv/P/FXJ7+PQqB29mpAyHxzugq9LU
c0TEMb9OMz7NW8KHVzsfDZyyvlNWtWe7ZJ1mfBpW0TWNKFM1iJ3rNJ29yFMR
KT8bPccwB8IajQ7rTOMwvTnU2Oc38+zjvHYMTaxvXWeagOlN4dOr1BZm9GqT
XtWW0vPZ3va/3PzicPFprbc3ecUGPhcGczkGu9EnuHIaxRevOdoDkw8YnW+Y
zuevxR8S+uZg7lGDvY8/9tdf3/bZe4uKzv1jd33lwTuPffdJHMUsnaneh5ae
+huO4nw627KZUHbBq6+eUQEGjlDnO2UXtKxHZltUF50+/S/hxUF1NhN/FcuE
4+D9971QbAp9QL/QQ6pfhr4+emTxnuUPfuBuHEUZzn+45eYf41Mcd9397cd7
dgjefvLkK61FnqReSDz99z7/3N/Bu/iLe54vgiwz93/+6H0nPnHgh69cve8Y
xFw6fOhn1A3yaepGH2XSDenuz7/0xV+qaqtwRhspw3H7T3/yTHFerWKVp2o2
tbMxHNOutzEMMtQp1vKFH3x/KdI2xgzGUPRoRMk9vvW1rz6Maqg+e+bMfxhm
2qK+RqwN2hDDhbYhCYxWZGGDgA9vPXXqn/A/NNv14h9fKtjjiy0tqRMK3tOy
bAedZ8Ve4T6Q9N+7r/gO/qIMo3aR0/RdQSvoBQaYPHXYWfz9+je/8Qg8GbAU
YTY57S9plv7B0D00x5id2n/d9wBJUGEuVsEM4B3wKkhN9u8NXILmoWBRgIXa
4IDQA4+TFF3/8EMnio80o/wmlGEc0HfS5O5QBkOA4GR4VzRD/DaUQRAwAoqr
99F/iiS4+2gzxCN18IEUxPjhUAZbQwCiu90RRAmE0LAEB8RFsMbRgzCXBwCA
YZxRzqnVleGxoBpAQWVwRTSDmorL60HFiNBdAuqJWjVgBQxG5f2OQHuaUZ4M
ZRAI40h378OZvHBvc8PfhTI4LkaU7t4TegdutP7Rl+98AIaHOmyUKSiYBXRL
d++m8wBQUBbgbvrVA8fhRuhxAu2pUIYhJbusHdFayjVZCPSLZMfdOx0hr22G
WAplUDBlV9ztcqSIIQhhSQd/V23ysBWy149lGeHllBlx945QhlGTqFtc1wzx
dChDUNZZz2WhDLaE2AVPaQFhRp8h0FzLchA0ApfVIwCZ6O76LLdx5ktDGXRA
ea8dhGG81BnYBMTvQxlURs6HO946gQXDKVpCgI2CdgRhokMewtjaTh3Y/VFD
CnFP14YCj40ZYTQ052zHaPrIENAGGU47CON3DCGZpyUERh4aiCGMRhIQz4Qy
JHjyOdzxfgruUU53+7MQEpNjCGOJeQhjA/OOgTMEzazr9e/ITgDdlc0sUBgU
F7OYlMAsATu7T5Fhg4XB0mI2U5Zma9wWriJLNn4y71hymiPxdMDrkTH6eUdz
U2UzkWje8Y80W5kqdglhw7DlmNB40wojHOhV1QxrvIlhaVki9RLu8WwoM6lq
h+P7H89CGCfd4ThpHsKoulebhEbe7Y7i8rDGKxkWcRG6JjtmWFxTam8FO2ty
wvAQ7Yp02x0PilEpYZAKKZcEwaq4utrGNse5swJuNP0ZHrHA6sPbHJ/OQ2P+
QZNtLo+nr0rL0GYOk4c2WSsehOG1zhq3OQaTha5i/9OpSd/xgDfWjqUYXM/M
RBOUz4XoIH4ovWIUk8l5yYt7naCWjlPl2aS65Bxmgz3R3g3u3hCqggV9hiTQ
joStOG7kCUUBwsCEJucxoehOzKNfj7EGr8SWJROKncoA9uux01TOhOJJEse4
qgnCMSH547PqjyOhmeOGCYqBqIrji852uL5Z52S7RyEI/kKWWTmW+fpAGVuh
piymNNExT4nqsgkjlCYLMmVsGerSUZDWvJ2nRG8wxGTZlRMlXkfngUkfw0Os
rFcPlsa3BOtxxwuYwdjN8BDD7akZ3JjFNQGecY0DDA/h6Tmi5CU30ZYZDMTw
kLFiBhPP8wzGTJnBaGR4iKf2nBCWZzBLwcBgYynnv9jaNbzHSiA3Pe64xoVO
WW+lu2hITWj2T6HMRN85J16FkFLFaUjp8/Ame8050YknnrEu4YUHOiGbsMDI
MqGQqJZHNnOpOcf7GVmcQswyj2wsds5xLUYWNulPHtm4ypxTxsiSo8XdGHl0
SZh63u/wUxS50Bk9ZpWxl2jGrOMu2vyum42IOcc4ytppMCSU+NISUIuyaaXD
vCY0zznezm0Rc9B5kqcF78jimAadlqsvNvMaLy5rRcCVyFPTvJWqv1HFI84l
phhPpZgX46txdtq8/EzCRFpuC9NWw1th1966OWFUJi0zqYlbt2Rd0lTfUsuo
E/88hOnmFmc4EhB/djS02bGgbhAm+echzDRzs4aMW6OGlPO8pMSaQx7WxQqX
meVpXgoDO6iHE7mOAuVsKDNhOg9rnmvw22twAEgMSkjNApu4lEc21YOZV7FN
KPP04ON5mM6OusGbTMDwcU7S6xlHPXl4oyWGjyXUvDA9+Di864ygG7xJzgwf
e4m6+YzjhDl4cq5giWZNoyEpB0qYNRRHWBPReg5E1UHWkRlQ9NqHBkqmMrvs
pSPSrVkqE/kYwqw8eo4yp0dloiZTeVOGMalMD0rVWt/xWiYwSSRPYKqXjn/0
zjqVKetGZRaEDGEWhAkqo908lVFo6QxWvRivMgRxnvRgTTZqD+vLbbaCvP26
nmPYtQV+spnghBMq+s0EK71pAgJTxgRml2Q1CLKGndCGR+Vt1vWbDXtMKm9f
0Fm3uxboUTU/cwwEDUuAE80WYTrJoGa+nJBm8qddCcE8RXtGYvy/u2BV07y5
0bBXVZz24+QlyGkI1s8Yk/cEzpPFyDy+LN4L+YkRSmcDTxYzcVjhZvXr7lMl
NWX5MJImMFvw3Qja5msjSDeqtrMQj8pMXVeXyrhQNyozqF4YzVGVunxoP08c
i8Dvi3l23JaK65nUkcv6uem1J4jJlOMQrFyLxJ+uBdiRPdjEGsqrZxJ5nsqE
aoYwz0O8GbqXmrtReTuea5UqdsO2BGa6wPXM+jLbl8HoixNiSwNHXC//5hkM
xLlg8LYnJmQQNxg4DuitssZnkPtGBgoAB7O4puHZwzUrnUlwRVFhE2xgvGB4
SPCeOrCknRiYcBnOpKBucCNy/oXOZgtQN9smRR1ZjUIVDGnWjtOBNLlkuX5q
fi4gq7jlyB52DrXjMtgh1jkME5vVwEriyVdyLWQwU6HhITKdSxmkblqGkQeR
VZ04q3g/Td8HmYhs/A7HPHq9hmQwT3qW6xdEVlh9+l3fPFNlpu7Dg9x7Ieuy
8Ys86imTQcbN1CBXDzJ+1Knv50wCyS8A4lLz2Hh4uqhthVdqpotqanTuLFIb
MH2Y3xksfA1P5l46sWqJZ2YujBfPFlvjhS8WQgwZn9mJ0KTZqqLFr04pcns0
EYDR4kntGGijb1RNhibNxkWrfaAVhq6W20sktPwmg3mNhayxM5Sd1reDkjZT
hJLv6fNwxa6lc7EE2kkuG3q3/hIAfxVePF5CXDsUDYidUdArGe/uKPL1YMpy
jCJpWPbzVpgiz5Hly+aUaLmtJAsx0bwEyLFAodzaGQU9Bgolqs4oCJFAiX6j
oJSJnPzNo8A6NA8wisggMuVRYJK6rOuMAitQn0mjjPwkYNtFBhPBUHQ7jonE
DEeIvEcc6TcbPULYi+5qbKytAIQ0+oe6sdEk/h/TwxuR/nQok6AzbWT5IY54
+XpwmoIDX34OQgRvO1GPIDCyZJeHmk2Yq2PuIj/d0qI69AULH6M6giBty7Wr
LpG3RXX6pR3+PQ5TneLoS5lKPiZCM+bQtFeaqP5yKMPQ6f5iImC8XHdQ36pK
VKfzDWvocxpRKuXvZtE1/0xsseG/L16LFQ==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"oFile", ",", 
   RowBox[{"Sort", "[", "specList", "]"}], ",", "\"\<Table\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.541303835300945*^9, 3.5413038495754023`*^9}, {
  3.5492214202441406`*^9, 3.5492214206123047`*^9}, {3.5492235707529297`*^9, 
  3.549223571010742*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\work\\\\Data\\\\output\\\\Rb85-D1-F3F2.txt\"\
\>"], "Output",
 CellChangeTimes->{3.549243565995117*^9, 3.5492452076865234`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{188, Automatic}, {-161, Automatic}},
CellContext->Notebook,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 511, 13, 72, "Input"],
Cell[CellGroupData[{
Cell[1081, 37, 76, 1, 49, "Subtitle"],
Cell[1160, 40, 4285, 96, 292, "Input"],
Cell[CellGroupData[{
Cell[5470, 140, 37, 0, 28, "Subsubtitle"],
Cell[5510, 142, 148, 5, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5695, 152, 40, 0, 28, "Subsubtitle"],
Cell[5738, 154, 223, 8, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5998, 167, 107, 1, 28, "Subsubtitle"],
Cell[6108, 170, 330, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6487, 186, 75, 1, 49, "Subtitle"],
Cell[6565, 189, 102, 1, 49, "Subtitle"],
Cell[6670, 192, 149, 2, 28, "Subsubtitle"],
Cell[6822, 196, 301, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[7148, 207, 105, 1, 28, "Subsubtitle"],
Cell[7256, 210, 408, 10, 47, "Input"],
Cell[CellGroupData[{
Cell[7689, 224, 105, 1, 31, "Input"],
Cell[7797, 227, 114, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7960, 234, 101, 1, 28, "Subsubtitle"],
Cell[8064, 237, 219, 6, 31, "Input"],
Cell[8286, 245, 167, 5, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8502, 256, 106, 1, 49, "Subtitle"],
Cell[8611, 259, 222, 3, 28, "Subsubtitle"],
Cell[8836, 264, 307, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[9168, 275, 199, 3, 28, "Subsubtitle"],
Cell[9370, 280, 284, 7, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9691, 292, 109, 1, 28, "Subsubtitle"],
Cell[9803, 295, 873, 19, 92, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10713, 319, 389, 5, 28, "Subsubtitle"],
Cell[11105, 326, 914, 17, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12056, 348, 413, 6, 28, "Subsubtitle"],
Cell[12472, 356, 554, 9, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13075, 371, 115, 1, 49, "Subtitle"],
Cell[13193, 374, 249, 3, 28, "Subsubtitle"],
Cell[13445, 379, 326, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[13796, 390, 199, 3, 28, "Subsubtitle"],
Cell[13998, 395, 405, 8, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14440, 408, 115, 1, 28, "Subsubtitle"],
Cell[14558, 411, 347, 9, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14942, 425, 252, 3, 28, "Subsubtitle"],
Cell[15197, 430, 630, 16, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15864, 451, 315, 4, 28, "Subsubtitle"],
Cell[16182, 457, 1228, 22, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17447, 484, 350, 5, 28, "Subsubtitle"],
Cell[17800, 491, 1011, 18, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18848, 514, 371, 5, 28, "Subsubtitle"],
Cell[19222, 521, 1005, 18, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20276, 545, 155, 2, 49, "Subtitle"],
Cell[20434, 549, 240, 3, 28, "Subsubtitle"],
Cell[20677, 554, 401, 8, 47, "Input"],
Cell[CellGroupData[{
Cell[21103, 566, 199, 3, 28, "Subsubtitle"],
Cell[21305, 571, 474, 9, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21816, 585, 104, 1, 28, "Subsubtitle"],
Cell[21923, 588, 913, 20, 92, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22873, 613, 293, 4, 28, "Subsubtitle"],
Cell[23169, 619, 764, 16, 47, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23982, 641, 139, 1, 49, "Subtitle"],
Cell[24124, 644, 175, 2, 28, "Subsubtitle"],
Cell[24302, 648, 442, 15, 31, "Input"],
Cell[24747, 665, 1602, 47, 56, "Input"],
Cell[26352, 714, 2099, 50, 212, "Input"],
Cell[CellGroupData[{
Cell[28476, 768, 57, 0, 28, "Subsubtitle"],
Cell[28536, 770, 1384, 45, 76, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29957, 820, 97, 1, 28, "Subsubtitle"],
Cell[30057, 823, 1254, 33, 99, "Input"],
Cell[31314, 858, 1184, 32, 99, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32535, 895, 115, 1, 28, "Subsubtitle"],
Cell[32653, 898, 2134, 54, 275, "Input"],
Cell[34790, 954, 2166, 55, 275, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37005, 1015, 89, 1, 49, "Subtitle"],
Cell[37097, 1018, 790, 19, 74, "Input"],
Cell[CellGroupData[{
Cell[37912, 1041, 280, 7, 53, "Input"],
Cell[38195, 1050, 114, 1, 30, "Output"]
}, Open  ]],
Cell[38324, 1054, 222, 7, 50, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38583, 1066, 73, 1, 49, "Subtitle"],
Cell[38659, 1069, 39, 0, 28, "Subsubtitle"],
Cell[38701, 1071, 563, 11, 31, "Input"],
Cell[CellGroupData[{
Cell[39289, 1086, 102, 1, 28, "Subsubtitle"],
Cell[39394, 1089, 630, 14, 52, "Input"],
Cell[40027, 1105, 198, 5, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40262, 1115, 90, 1, 28, "Subsubtitle"],
Cell[40355, 1118, 507, 15, 87, "Input"],
Cell[40865, 1135, 833, 25, 87, "Input"],
Cell[CellGroupData[{
Cell[41723, 1164, 1220, 26, 31, "Input"],
Cell[42946, 1192, 273, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43256, 1203, 1267, 27, 31, "Input"],
Cell[44526, 1232, 273, 6, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44848, 1244, 102, 1, 28, "Subsubtitle"],
Cell[44953, 1247, 394, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45396, 1263, 112, 1, 49, "Subtitle"],
Cell[45511, 1266, 5506, 144, 320, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51054, 1415, 185, 3, 49, "Subtitle"],
Cell[51242, 1420, 2031, 40, 172, "Input"],
Cell[CellGroupData[{
Cell[53298, 1464, 2415, 60, 148, "Input"],
Cell[55716, 1526, 300, 6, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56053, 1537, 1887, 49, 92, "Input"],
Cell[57943, 1588, 9487, 160, 240, 5180, 88, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67467, 1753, 322, 7, 31, "Input"],
Cell[67792, 1762, 160, 2, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
